home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / DICE.LST < prev    next >
Encoding:
File List  |  1992-01-16  |  189 b   |  10 lines
  1. PROCEDURE dice(number%,sides%,VAR total%)
  2.   LOCAL xa%
  3.   total%=0
  4.   IF number%>0 AND sides%>0
  5.     FOR xa%=1 TO number%
  6.       ADD total%,RANDOM(sides%)+1
  7.     NEXT xa%
  8.   ENDIF
  9. RETURN
  10.